home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Info-Mac 4
/
Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso
/
Development
/
General
/
WASTE 1.0a4 Distribution
/
Interfaces 2
/
ExternQD.p
< prev
next >
Wrap
Text File
|
1994-02-02
|
650b
|
34 lines
unit ExternQD;
{ The easy way to get QuickDraw globals from a code resource }
interface
type
QDGlobals = record
randSeed: LongInt;
screenBits: BitMap;
arrow: Cursor;
dkGray: Pattern;
ltGray: Pattern;
gray: Pattern;
black: Pattern;
white: Pattern;
thePort: GrafPtr;
end; { QDGlobals }
QDPtr = ^QDGlobals;
const
QDGlobalsSize = SizeOf(QDGlobals);
QDGlobalsOffset = -QDGlobalsSize + SizeOf(GrafPtr);
function GetQDGlobals: QDPtr;
inline
$2055, { movea.l (a5), a0 }
$41E8, QDGlobalsOffset, { lea QDGlobalsOffset(a0), a0 }
$2E88; { move.l a0, (sp) }
implementation
end.